home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 1 / Gold Medal Software Volume 1 (Gold Medal) (1994).iso / graphics / show40a.arj / EXAMPLES.EXE / GUESS.SHW < prev    next >
Text File  |  1993-12-01  |  2KB  |  94 lines
  1. ;*********************************************************************;
  2. ; Sciptname..:  Guess.SHW                                             ;
  3. ; Date.......:  1st. Nov. 1993, by RMP DATA.                          ;
  4. ; Purpose....:  Promotion for DATASHOW, as an example script.         ;
  5. ;*********************************************************************;
  6.  
  7. COLOR BACKGROUND 1
  8. COLOR FOREGROUND 15
  9.  
  10. SCREEN CLEAR
  11. DRAW BOX 79 24
  12.  
  13. COLOR BACKGROUND 4
  14. SET DELAYFACTOR 5
  15. GOXY 14 2 WRITE "W e l l c o m e  t o  G u e s s  a  N u m b e r . . ."
  16. SET DELAYFACTOR 0
  17.  
  18. ; Create variables for input
  19. VARIABLE CREATE times TYPE NUMBER 1
  20. VARIABLE CREATE result TYPE NUMBER 1
  21. VARIABLE CREATE input TYPE NUMBER 1
  22.  
  23. ; Create variables for score keeping
  24. VARIABLE CREATE score TYPE NUMBER 10000
  25. VARIABLE CREATE name TYPE STRING ""
  26.  
  27. IF FILE "guess1.var" DO
  28.    VARIABLE LOAD score FROM "guess1.var"
  29. END
  30.  
  31. IF FILE "guess2.var" DO
  32.    VARIABLE LOAD name FROM "guess2.var"
  33. END
  34.  
  35. GOXY 6 5 WRITE "Best score.....:"
  36. GOXY 6 7 WRITE "Name...........:"
  37. GOXY 24 5
  38. IF score EQ 10000 DO
  39.    WRITE "<None>"
  40.    GOXY 24 7
  41.    WRITE "<None>"
  42. END
  43. IF score NE 10000 DO
  44.    WRITE score
  45.    GOXY 24 7
  46.    WRITE name
  47. END
  48.  
  49. MATH result = RANDOM(100)
  50.  
  51. GOXY 18 10 WRITE "Guess the secret number between 1 and 100!"
  52.  
  53. MARK 1
  54.  
  55. COLOR BACKGROUND 1
  56. GOXY 30 12 WRITE times+". Guess:"
  57. GOXY 42 12 READ STRING input 3
  58.  
  59. COLOR BACKGROUND 4
  60. GOXY 18 20
  61.  
  62. IF input EQ result DO JUMPMARK 10
  63. IF input LT result DO JUMPMARK 2
  64.  
  65. WRITE "The entered number is higher than the secret."
  66. JUMPMARK 3
  67.  
  68. MARK 2
  69. WRITE "The entered number is lower than the secret. "
  70.  
  71. MARK 3
  72. VARIABLE INCREASE times 1
  73. JUMPMARK 1
  74.  
  75. MARK 10
  76. WRITE "Congratulation... You found the secret number!"
  77. COLOR BACKGROUND 1
  78. GOXY 29 22 WRITE "Number of tries: "+times
  79. WAIT 3
  80.  
  81. IF times LE score DO
  82.    MATH score = times
  83.    VARIABLE SAVE score TO "guess1.var"
  84.    GOXY 7 24
  85.    WRITE "Congratulation! - You've made the honor roll! - Enter your name..."
  86.    GOXY 24 7 READ STRING name 20
  87.    VARIABLE SAVE name TO "guess2.var"
  88. END
  89. IF times GT score DO
  90.    GOXY 8 24
  91.    WRITE "Sorry! - You did not make the honor roll! - Please try again..."
  92.    WAIT 4
  93. END
  94.